home *** CD-ROM | disk | FTP | other *** search
/ U.S. Robotics Connections 2 / US Robotics Connections.iso / pc / sourcepc / palmpc.dir / 00303.ls < prev    next >
Encoding:
Text File  |  1996-03-01  |  1.2 KB  |  56 lines
  1. global gCalNum, gSetNum, gLastNum, gOperation, gAnswer
  2.  
  3. on Answer
  4.   if gOperation = EMPTY then
  5.     exit
  6.   end if
  7.   if gOperation = "+" then
  8.     set gCalNum to gCalNum + gSetNum
  9.   else
  10.     if gOperation = "-" then
  11.       set gCalNum to gSetNum - gCalNum
  12.     else
  13.       if gOperation = "*" then
  14.         set gCalNum to gCalNum * gSetNum
  15.       else
  16.         if gOperation = "/" then
  17.           if string(gSetNum) contains "." then
  18.             nothing()
  19.           else
  20.             set gSetNum to value(string(gSetNum) & ".0")
  21.           end if
  22.           if gCalNum = 0 then
  23.             error()
  24.             abort()
  25.           end if
  26.           set gCalNum to gSetNum / gCalNum
  27.         end if
  28.       end if
  29.     end if
  30.   end if
  31.   set the itemDelimiter to "."
  32.   set lText1 to item 1 of string(gCalNum)
  33.   set lText2 to item 2 of string(gCalNum)
  34.   if value(lText2) = 0 then
  35.     set gCalNum to integer(gCalNum)
  36.   end if
  37.   if the number of chars in lText1 > 9 then
  38.     error()
  39.     abort()
  40.   end if
  41.   set the itemDelimiter to ","
  42.   set gSetNum to gCalNum
  43.   set gOperation to EMPTY
  44.   DrawNum()
  45.   set gCalNum to 0
  46.   set gAnswer to 1
  47. end
  48.  
  49. on error
  50.   set gCalNum to "E"
  51.   set gOperation to EMPTY
  52.   DrawNum()
  53.   set gCalNum to 0
  54.   set gAnswer to 1
  55. end
  56.